home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / amos / RainMaker2Demo.lha / rainmaker2 / RainBankExample.AMOS / RainBankExample.amosSourceCode < prev   
AMOS Source Code  |  1992-09-18  |  428b  |  16 lines
  1. Procedure _RAIN_BANK
  2. Rem      Created for use with RainMaker 2.0
  3. Rem      by Dan Murrell Jr.
  4.    USE_BANK=12
  5.    BANK_START=Start(USE_BANK)
  6.    NUM_LINES=(Length(USE_BANK))/2-2
  7.    Set Rainbow 0,0,NUM_LINES+1,"","",""
  8.    For COUNTER=0 To NUM_LINES
  9.       HI=Peek(BANK_START+(COUNTER*2)) : LO=Peek(BANK_START+(COUNTER*2)+1)
  10.       Rain(0,COUNTER)=HI*256+LO
  11.    Next COUNTER
  12.    Rainbow 0,0,41,NUM_LINES
  13. End Proc
  14. Cls 0
  15. _RAIN_BANK
  16. Wait Key